home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / neqv.z / neqv
Encoding:
Text File  |  2002-10-03  |  4.5 KB  |  107 lines
  1. NEQV(3I)                                              Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      NNEEQQVV, XXOORR - Computes logical difference
  6.  
  7. SSYYNNOOPPSSIISS
  8.      NNEEQQVV (([II==]_i,,[JJ==]_j))
  9.      XXOORR (([II==]_i,,[JJ==]_j))
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, IRIX systems
  13.  
  14.      CF90 and MIPSpro 7 Fortran 90:  NNEEQQVV, XXOORR
  15.  
  16.      MIPSpro Fortran 77:  XXOORR
  17.  
  18. SSTTAANNDDAARRDDSS
  19.      Fortran extensions
  20.  
  21. DDEESSCCRRIIPPTTIIOONN
  22.      NNEEQQVV and XXOORR are two names for the same routine.  NNEEQQVV and XXOORR are
  23.      elemental functions.  They accept the following arguments:
  24.  
  25.      _i         Must be of type Boolean, integer, real, logical, or Cray
  26.                pointer.
  27.  
  28.      _j         Must be of type Boolean, integer, real, logical, or Cray
  29.                pointer.
  30.  
  31. NNOOTTEESS
  32.      These routines are outmoded.  Refer to the _F_o_r_t_r_a_n _L_a_n_g_u_a_g_e _R_e_f_e_r_e_n_c_e
  33.      _M_a_n_u_a_l, _V_o_l_u_m_e _3, for information about outmoded features and their
  34.      preferred standard alternatives.  The name of this intrinsic cannot be
  35.      passed as an argument.
  36.  
  37. CCAAUUTTIIOONNSS
  38.      Unexpected results can occur when Boolean functions are declared
  39.      external and then used with logical arguments.  The external Boolean
  40.      functions always treat their arguments as type Boolean and return a
  41.      Boolean result on UNICOS and UNICOS/mk systems.  On IRIX systems, they
  42.      return an integer result.
  43.  
  44. RREETTUURRNN VVAALLUUEESS
  45.      When given two arguments of type logical, NNEEQQVV and XXOORR compute a
  46.      logical difference and return a logical result.  When given two
  47.      arguments of type Boolean, integer, real, or pointer, NNEEQQVV and XXOORR
  48.      compute a bit-wise logical difference and return a Boolean result.
  49.  
  50.      The following tables show both the logical difference and bit-wise
  51.      logical difference.  NNEEQQVV is shown in the tables, but XXOORR produces
  52.      identical results.
  53.  
  54.      -----------------------------------------------------------------
  55.         Logical        Logical          (Logical Variable 1) NNEEQQVV
  56.       Variable 1     Variable 2           (Logical Variable 2)
  57.      -----------------------------------------------------------------
  58.            T              T                         F
  59.            T              F                         T
  60.            F              T                         T
  61.            F              F                         F
  62.      -----------------------------------------------------------------
  63.  
  64.      --------------------------------------------------------------
  65.         Bit of        Bit of          (Bit of Variable 1) NNEEQQVV
  66.       Variable 1    Variable 2           (Bit of Variable 2)
  67.      --------------------------------------------------------------
  68.           1             1                        0
  69.           1             0                        1
  70.           0             1                        1
  71.           0             0                        0
  72.      --------------------------------------------------------------
  73.  
  74. EEXXAAMMPPLLEESS
  75.      The following section of Fortran code shows the NNEEQQVV function used
  76.      with two arguments of type logical.  XXOORR is used in the same manner
  77.      and produces the same results.
  78.  
  79.           LOGICAL L1, L2, L3
  80.           ...
  81.           L3 = NEQV(L1,L2)
  82.  
  83.      The following section of Fortran code shows the NNEEQQVV function used
  84.      with two arguments of type integer.  XXOORR is used in the same manner
  85.      and produces the same results.  The bit patterns of the arguments and
  86.      results are also given.  For clarity, only the rightmost 8 bits are
  87.      shown.
  88.  
  89.    INTEGER I1, I2, I3
  90.    I1 = 12
  91.    I2 = 10
  92.    ...
  93.    I3 = NEQV(I1,I2)
  94.        -------------------------------     -------------------------------
  95.       | 0 | 0 | 0 | 0 | 1 | 1 | 0 | 0 |   | 0 | 0 | 0 | 0 | 1 | 0 | 1 | 0 |
  96.        -------------------------------     -------------------------------
  97.                         I1                               I2
  98.  
  99.                      -------------------------------
  100.                     | 0 | 0 | 0 | 0 | 0 | 1 | 1 | 0 |
  101.                      -------------------------------
  102.                                        I3
  103.  
  104. SSEEEE AALLSSOO
  105.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  106.      man page.
  107.